﻿<!-- #include file="mymin.asp" -->
<%
If Request("submit1") <> "" Then

	adminIpCheck=Request.Form("adminIpCheck")
	adminTimeCheck=Request.Form("adminTimeCheck")
	adminUpload=Request.Form("adminUpload")
	adminUpdate=Request.Form("adminUpdate")
	adminSize=Request.Form("adminSize")
	adminArticle=forQuote(Request.Form("adminArticle"))
	if adminIpCheck<>"0" then adminIpCheck = 1
	if adminTimeCheck<>"0" then adminTimeCheck = 1
	if adminUpdate="" or IsNumeric(adminUpdate)=False then adminUpdate = 0
	if adminSize="" or IsNumeric(adminSize)=False then adminSize = 0
	if adminUpload<>"1" then adminUpload = 2
	' Dim sid_
	' sid_ = Request.Form("bbsSid")
	' If sid_ <> "" And ifLetter(sid_)=False Then Call Error2("<card title='出错'><p>论坛会话标识无效！")
	' if len(Request.Form("numTitle"))<1 then
		' Call Error2("<card title='出错'><p>请输入！")
	' end if
	'----------------------------------------------------------------
	'	生成admin.asp文件
	'----------------------------------------------------------------
	dim HU_Config,HU_File

	HU_File= "../../config/admin.asp"'生成bbs.asp文件路径

	HU_Config="<"&"%"
	HU_Config=HU_Config+chr(13)&chr(10)&"adminUpdate="""&adminUpdate&""" '系统升级维护"
	HU_Config=HU_Config+chr(13)&chr(10)&"adminIpCheck="""&adminIpCheck&""" '后台IP异常检测"
	HU_Config=HU_Config+chr(13)&chr(10)&"adminTimeCheck="""&adminTimeCheck&""" '后台登录时间检测"
	HU_Config=HU_Config+chr(13)&chr(10)&"adminUpload="""&adminUpload&""" '后台上传系统"
	HU_Config=HU_Config+chr(13)&chr(10)&"adminArticle="""&adminArticle&""" '文章默认来源"
	HU_Config=HU_Config+chr(13)&chr(10)&"adminSize="""&adminSize&""" '文件上传限制"
	HU_Config=HU_Config+chr(13)&chr(10)&"%"&">"
	Call savetofile(HU_Config,HU_File)
	Response.Write "<meta http-equiv=""refresh"" content=""1;url=index.asp?sid="&sid&"""><title>网站后台配置</title></head><body><div class=""main320"">"
	Response.Write "成功设置！正在返回..."
else%>
<title>网站后台配置</title></head><body><div class="main400">
<form method="post" action="admin.asp">
<table>
<tr><td>系统维护:</td><td><input name="adminUpdate" value="<%=adminUpdate%>" size="3"/>(小时)</td></tr>
<tr><td>后台IP异常检测:</td><td><select name="adminIpCheck">
<option value="1">开启</option>
<option value="0" <% If adminIpCheck="0" Then w "selected"%>>关闭</option>
</select></td></tr>
<tr><td>后台登录时间检测:</td><td><select name="adminTimeCheck">
<option value="1">开启</option>
<option value="0" <% If adminTimeCheck="0" Then w "selected"%>>关闭</option>
</select></td></tr>
<tr><td>系统上传系统:</td><td><select name="adminUpload">
<option value="1">无名上传类</option>
<option value="2" <% If adminUpload="2" Then w "selected"%>>无惧上传类</option>
</select></td></tr>
<tr><td>文章默认来源:</td><td><input type="text" name="adminArticle" value="<%=adminArticle%>" maxlength="15"/></td></tr>
<tr><td>文件上传限制:</td><td><input type="text" name="adminSize" value="<%=adminSize%>" maxlength="5" size="3"/>(KB)</td></tr>
</table>
<input type="submit" value="保存配置"/>
<input type="hidden" name="submit1" value="1"/>
<input type="hidden" name="sid" value="<%=sid%>"/>
</form>
温馨提示:<br/>
1、关闭后台检测会降低网站安全性，站长IP不稳定可考虑关闭。WEB版后台对安全性要求较高，后台检测功能无法关闭。<br/>
2、系统维护:大于0则表示网站进入维护，前台只显示维护信息。<br/>
3、上传限制:大于0则表示对站长外的管理员开启文件上传限制。<br/>
<%end if%><br/>
<a href="index.asp?sid=<%=sid%>">[网站配置]</a><%call Last2%>